COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	input font1base
C00005 ENDMK
C⊗;
input font1base
proofing:=1;
stop; % temporary patch
vardef char.l =
	setwidth 1/3em;
	pos1(1.5thickwidth,45);
	pos2(1.05thickwidth,10);
	z2=(.5w,0);
	y1=hheight; x1r=x2r;
	stroke(1,2,.1,.2,0);
	labelpos(1,2);
enddef;

vardef char.U =
	setwidth .75em;
	pos1(1.1thickwidth,10);
	pos2(thickwidth,10);
	pos3(thickwidth,40);
	pos4(.5[thickwidth,thinwidth],75);
	pos5(.9[thickwidth,thinwidth],130);
	pos6(thinwidth,180);
	pos7(1.1thinwidth,190);
	x1l=.1em; x7l=w-.1em;
	y1=y7=capheight;
	x2=x1; y2=.3capheight; dz2=(0,-1);
	x3=.75[x4,x2]; y3=.75[y2,y4];
	x4r=.5[x2r,x6r]; y4l=-.05capheight; dz4=(1,0);
	x5=.71[x4,x6]; y5=.71[y6,y4];
	x6=x7; y6=1/3capheight; dz6=(0,1);
	stroke(1,2,.2,.05,.05);
	curve(2,3,4); curve(4,5,6);
	stroke(6,7,.8,.05,.05);
	labelpos(1,2,3,4,5,6,7);
enddef;

test.normal(char.U);
pausing:=1;
test.bold(char.U);
test.boldx(char.U);	
test.normal(char.l);	
test.bold(char.l);	
test.boldx(char.l);	

test(char.l);		
test(char.U);		

end
% the following were used to make illustrations for the handout
clear;
openwindow 0 from (0,0) to (420,500) at (-40,310);
window:=0;
pos1(100,35); pos2(120,+20);
z1=(0,200); z2=(40,0);
stroke(1,2,.3,.4,.1);
vardef zz@#=(xx@#,yy@#) enddef;
t=.3; lt=.4; rt=.1;
z.l=t[z1l,z2l]; z.r=t[z1r,z2r]; z=t[z1,z2];
zz.l=lt[z.l,z]; zz.r=rt[z.r,z];
special " 2z.l"; numspecial x.l; numspecial y.l;
special " 2z"; numspecial x; numspecial y;
special " 3z.r"; numspecial x.r; numspecial y.r;
special " 2zz.r"; numspecial xx.r; numspecial yy.r;
special " 2zz.l"; numspecial xx.l; numspecial yy.l;
labelpos(1,2);
shipit;
clear;
openwindow 0 from (0,0) to (420,500) at (-40,310);
pos1(100,110); pos2(110,80); pos3(120,50);
z1=(0,0); z2=(150,80); z3=(300,20);
curve(1,2,3);
labelpos(1,2,3);
shipit;
end